#------------------------------------------------------------------------------
# Conditional Trimming Bounds for Study 1
#------------------------------------------------------------------------------
boundsS1 <- data.frame(itt = rep(NA, 6), min = rep(NA, 6),  
                      max = rep(NA, 6))

boundsS1[1, 2:3] <- ConditionalTrimmingBounds(d1$path.to.citizenship.followup.01, 
  as.numeric(d1$path.to.citizenship.baseline.NArecode), d1$assigned.to.session)
boundsS1[2, 2:3] <- ConditionalTrimmingBounds(d1$legal.immigration.followup.01, 
  as.numeric(d1$legal.immigration.baseline.NArecode), d1$assigned.to.session)
boundsS1[3, 2:3] <- ConditionalTrimmingBounds(d1$trust.followup.01, 
  as.numeric(d1$trust.baseline.NArecode), d1$assigned.to.session)
boundsS1[4, 2:3] <- ConditionalTrimmingBounds(d1$approval.followup.01, 
  as.numeric(d1$approval.baseline.NArecode), d1$assigned.to.session)
boundsS1[5, 2:3] <- ConditionalTrimmingBounds(d1$vote.followup.01, 
  as.numeric(d1$vote.baseline.NArecode), d1$assigned.to.session)
boundsS1[6, 2:3] <- ConditionalTrimmingBounds(d1$vote.november.01, 
  as.numeric(d1$vote.baseline.NArecode), d1$assigned.to.session)

#------------------------------------------------------------------------------
# Conditional Trimming Bounds for Study 2
#------------------------------------------------------------------------------
boundsS2 <- data.frame(itt = rep(NA, 6), min = rep(NA, 6),  
                      max = rep(NA, 6))

boundsS2[1, 2:3] <- ConditionalTrimmingBounds(d2$waterboarding.followup.01, 
  as.numeric(d2$torture.baseline.NArecode), d2$assigned.to.session)
boundsS2[2, 2:3] <- ConditionalTrimmingBounds(d2$guantanamo.followup.01, 
  as.numeric(d2$torture.baseline.NArecode), d2$assigned.to.session)
boundsS2[3, 2:3] <- ConditionalTrimmingBounds(d2$trust.followup.01, 
  as.numeric(d2$trust.baseline.NArecode), d2$assigned.to.session)
boundsS2[4, 2:3] <- ConditionalTrimmingBounds(d2$approval.followup.01, 
  as.numeric(d2$approval.baseline.NArecode), d2$assigned.to.session)
boundsS2[5, 2:3] <- ConditionalTrimmingBounds(d2$vote.followup.01, 
  as.numeric(d2$vote.baseline.NArecode), d2$assigned.to.session)
boundsS2[6, 2:3] <- ConditionalTrimmingBounds(d2$vote.november.01, 
  as.numeric(d2$vote.baseline.NArecode), d2$assigned.to.session)